home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
patches
/
pgs3f.lha
/
3.0fUpdate
/
Macros.LHA
/
BMEcmdshell.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-09-20
|
2KB
|
58 lines
/* $VER: BMEcmdshell.rexx 1.0 (02.9.94)
Copyright 1994 Soft-Logik Publishing Corporation
May not be distributed without Soft-Logik Publishing Corporation's express written permission */
options results
options failat 100
open('console', 'CON:0/9999/9999/50/BME/SCREEN BME', 'RW')
writeln('console', 'Enter commands, "Q" to exit.')
address BME
/* loop until user exits */
do forever
/* get command string from user */
writech('console','CMD> ')
cmd=readln('console')
select
/* time to quit? */
when (upper(cmd) = "Q") then do
leave
end
/* need some help? */
when (cmd = "?") then do
writeln('console', 'Enter "Q" to exit command shell.')
end
/* do nothing on empty lines */
when (cmd = "") then do
nop
end
/* whatsinaline */
otherwise do
/* execute the command string */
cmd
/* if ok show the result, if any */
if (RC = 0) then do
if result ~= "RESULT" then writeln('console', result)
if (upper(cmd) = "QUIT") then leave
end
else do
/* ERROR!!!! get fault string from MCEd */
writeln('console', '*** Error');
end
end
end
end
exit(0)